10 REM MAKE A TUNE
20 DIM N(100):REM FOR UP TO 100 NOTES
30 REM WILL USE KEYS A,B,C,D,E,F,G
40 A=10:B=50:C=80:D=100:E=150:F=200:G=225
50 I=1:AA=31266:REM A=47650 FOR 32K - A=64034 FOR 48K
60 CLS:PRINT "TO HEAR YOUR TUNE"
70 PRINT "PRESS THE SPACE BAR,"
80 PRINT "START COMPOSING, USE THE"
90 PRINT "LETTERS A,B,C,D,E,F,G"
100 A$=INKEY$
110 IF A$="" THEN 100
120 IF A$=" " THEN 310:REM SPACE BAR
130 IF A$="A" THEN 210
140 IF A$="B" THEN 220
150 IF A$="C" THEN 230
160 IF A$="D" THEN 240
170 IF A$="E" THEN 250
180 IF A$="F" THEN 260
190 IF A$="G" THEN 270
200 GOTO 100
210 POKE AA,A:N(I)=A:GOTO 280
220 POKE AA,B:N(I)=B:GOTO 280
230 POKE AA,C:N(I)=C:GOTO 280
240 POKE AA,D:N(I)=D:GOTO 280
250 POKE AA,E:N(I)=E:GOTO 280
260 POKE AA,F:N(I)=F:GOTO 280
270 POKE AA,G:N(I)=G
280 X=USR(0):REM CALL ROUTINE
290 IF I>=100 THEN 310:REM N(I) FOR NOTES IN TUNE
300 PRINT A$;:I=I+1:GOTO 100
310 T=I-1:PRINT
320 PRINT "SPEED OF PLAYBACK (FAST,MEDIUM,SLOW)"
330 INPUT "1, 2 OR 3";TT:TT=TT*20
340 FOR I=1 TO T:IF N(I)=0 THEN 370
350 POKE AA,N(I):X=USR(0)
360 FOR P=1 TO TT:NEXT P,I
370 PRINT
380 PRINT "END OF YOUR TUNE."
390 END
